home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / cmd_hd_utilities[cmd_19xx](v1_92).nbz / auto-boot 128 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.4 KB  |  89 lines
  1. 100 PRINT"[147][155]  [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  2. 102 PRINT"       [159]AUTO-BOOT MAKER"
  3. 104 PRINT"[155]  [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  4. 105 POKE53280,0:POKE53281,0:REM BY BOWEN&RYAN
  5. 106 X=PEEK(48):IF(X>=8)THEN1990
  6. 107 GOSUB2125
  7. 108 NU$=CHR$(0)
  8. 110 :  INPUT#15,A,AA$,C,D:IF(A>0)THENGOSUB242:GOTO100
  9. 112 OPEN8,U,8,"#"
  10. 114 PRINT#15,"U1:8 0 18 0":PRINT#15,"B-P";8;5
  11. 116 :  GET#8,BA$:BL$=""
  12. 118 PRINT#15,"U1:8 0 1 0":INPUT#15,A,AA$,C,D:IFA<>0THENGOSUB242:GOTO100
  13. 120 :  FORI=0TO24: GET#8,A$: BL$=BL$+CHR$(ASC(A$)): NEXT
  14. 122 IF (ASC(BA$)AND1)=0 THEN (null)
  15. 124 :  IF LEFT$(BL$,3)="CBM" THEN (null)
  16. 126 :     PRINT"    [155] ALREADY A BOOT DISK:      ":PRINT"";
  17. 128 :     I=8
  18. 130 :     (null)
  19. 132 :        A$=MID$(BL$,I,1)
  20. 134 :        PRINTA$;
  21. 136 :        I=I+1
  22. 138 :        (null) (null) A$=NU$
  23. 140 :    PRINT
  24. 142 :    (null): (null) (null)
  25. 144 :     PRINT"    [155] BOOT  SECTOR  USED        "
  26. 146 :     PRINT" BY  ANOTHER  PROGRAM      "
  27. 148 :    (null)
  28. 150 : PRINT"    [155] CONTINUE (Y/N)            ":INPUT"N[157][157][157]";A$
  29. 152 : IF A$<>"Y" THEN E=-1: GOTO238
  30. 154 : BA = -1
  31. 156 (null)
  32. 158 PRINT"    [155] ENTER YOUR PROGRAM'S NAME "
  33. 160 PRINT"     (UP TO 16 CHARACTERS)     "
  34. 162 INPUT"      STARTUP[157][157][157][157][157][157][157][157][157]";F$
  35. 164 :
  36. 166 IFLEN(F$)>16 THEN (null)
  37. 168 :  PRINT"     THAT'S TOO BIG!";
  38. 170 :  (null) 2
  39. 172 :  GOTO162
  40. 174 :  (null)
  41. 176 IFF$=""THENEND
  42. 178 :
  43. 180 PRINT"[155] ENTER YOUR PROGRAM'S TYPE "
  44. 182 PRINT" ('BASIC' OR 'BINARY')     "
  45. 184 INPUT"  BASIC[157][157][157][157][157][157][157]";T$
  46. 186 :
  47. 188 IF T$<>"BASIC" AND T$ <> "BINARY" THEN (null)
  48. 190 :  PRINT"     ENTER 'BASIC' OR 'BINARY'";
  49. 192 :  (null) 2
  50. 194 :  PRINT"[145][145][145]"CHR$(27)"@[145]"
  51. 196 :  GOTO184
  52. 198 :  (null)
  53. 200 IF T$="BASIC" THEN RM$="RUN" : (null) RM$="BOOT"
  54. 202 :
  55. 204 PRINT"[155] INSERT  YOUR  DISK  INTO  "
  56. 206 PRINT" DRIVE "U"[157].  PRESS  RETURN  "
  57. 208 PRINT" WHEN  READY.              ";
  58. 210 GET(null)A$: IF ASC(A$)<>13 THEN E=-1: GOTO238
  59. 212 :
  60. 214 AA= LEN(F$)+(null)("B00")+15
  61. 216 AL= AA AND 255:   AH= AA / 256
  62. 218 :
  63. 220 PRINT#15,"B-P 8 0"
  64. 222 PRINT#8, "CBM";NU$;NU$;NU$;NU$;F$;NU$;NU$;
  65. 224 PRINT#8, CHR$(162);CHR$(AL);CHR$(160);CHR$(AH);
  66. 226 PRINT#8, CHR$(76);CHR$((null)("A5"));CHR$((null)("AF"));
  67. 228 PRINT#8, RM$;CHR$(34);F$;NU$
  68. 230 PRINT#15, "U2:8 0 1 0"
  69. 232 IF BA=0 THEN PRINT#15, "B-A 0 1 0"
  70. 234 A$=DS$:IFDS>0THENGOSUB242:GOTO100
  71. 236 :
  72. 238 CLOSE8: CLOSE15
  73. 240 END
  74. 242 PRINT:PRINT"[155] DISK ERROR:               ":CLOSE8:CLOSE15
  75. 244 PRINT""A","AA$","C","D:E=-1:PRINT"[155]PRESS ANY KEY TO CONTINUE":GET(null)G$:RETURN
  76. 1990 PRINT"[155]SORRY, THIS PROGRAM WILL"
  77. 1992 PRINT"RUN ON THE C-128 ONLY.":END
  78. 2000 REM
  79. 2010 REM
  80. 2125 PRINT "[155] DISK UNIT NR (8-15)       "
  81. 2130 INPUT"8[157][157][157]";U: IF U<8 OR U>15 THEN PRINT "[145][145][145][145]": GOTO 125
  82. 2155 PRINT "[155] INSERT DISK IN UNIT"U"[157], D"RIGHT$(STR$(D),1)";"
  83. 2160 PRINT " PRESS ANY KEY WHEN READY. "
  84. 2165 GET X$: IF X$=""THEN2165
  85. 2166 OPEN15,U,15,"I0"
  86. 2170 PRINT"[145][145][145][145][145][145][145]":BL$="                                   "
  87. 2175 PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINT"[145][145][145][145][145][145][145]"
  88. 2180 RETURN
  89.